10 REM     I HOPE YOU TYPED THE DATA FROM TABLE 1 INTO THE INPDATA ACCESSORY!!
100 UNKNOWN OP: 0x3A
110 UNKNOWN OP: 0x3A
120 REM     LOAD AND UNPACK PICTURE
130 LOAD
140 EXTENSION (Index #0) (Token 0x80)
150 ERASE
160 UNKNOWN OP: 0x3A
170 UNKNOWN OP: 0x3A
180 REM     GRAB SCREEN BLOCKS 
190 VARNAME
20 UNKNOWN OP: 0x3A
200 VARNAME
210 VARNAME
220 VARNAME
230 VARNAME
240 UNKNOWN OP: 0x3A
250 UNKNOWN OP: 0x3A
260 REM     DRAW FOUR EVER DECREASING BOXES
270 FOR
280 FOR
290 SCREEN$
30 UNKNOWN OP: 0x3A
300 NEXT
310 NEXT
320 UNKNOWN OP: 0x3A
330 FOR
340 FOR
350 SCREEN$
360 NEXT
370 NEXT
380 FOR
390 UNKNOWN OP: 0x3A
40 KEY
400 FOR
410 SCREEN$
420 NEXT
430 NEXT
440 UNKNOWN OP: 0x3A
450 FOR
460 FOR
470 SCREEN$
480 NEXT
490 NEXT
50 DIM
500 UNKNOWN OP: 0x3A
510 UNKNOWN OP: 0x3A
520 REM     PLOT TEXT ONTO BANK 8 THEN COPY WHOLE SCREEN TO PHYSIC 
530 SCREEN$
540 GET PALETTE
550 SCREEN COPY
560 ERASE
570 UNKNOWN OP: 0x3A
580 UNKNOWN OP: 0x3A
590 REM     INTELLIGENT COLOUR CYCLING USING INTERRUPT DRIVEN FLASHES
60 FOR
600 FOR
610 VARNAME
620 NEXT
630 WAIT VBL
640 FLASH
650 FLASH
660 FLASH
670 FLASH
680 CLEAR KEY
690 WAIT KEY
70 RESERVE
700 UNKNOWN OP: 0x3A
710 UNKNOWN OP: 0x3A
720 REM     THIS NEXT LINE DOES THE SAME AS TYPING IT IN DIRECT MODE!! 
730 REM        ANYBODY GOT ANY IDEA'S FOR SELF MODIFYING PROGRAMS? 
740 PUT KEY
80 RESERVE
90 CLS